home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / jikes / src / dump.cpp < prev    next >
C/C++ Source or Header  |  1999-05-14  |  14KB  |  364 lines
  1. // $Id: dump.cpp,v 1.3 1999/01/25 20:00:28 shields Exp $
  2. //
  3. // This software is subject to the terms of the IBM Jikes Compiler
  4. // License Agreement available at the following URL:
  5. // http://www.ibm.com/research/jikes.
  6. // Copyright (C) 1996, 1998, International Business Machines Corporation
  7. // and others.  All Rights Reserved.
  8. // You must accept the terms of that agreement to use this software.
  9. //
  10. #ifdef TEST
  11.  
  12. #include "config.h"
  13. #include "javasym.h"
  14. #include "control.h"
  15. #include "stream.h"
  16. #include <iostream.h>
  17. #include <stdio.h>
  18.  
  19. static char*
  20.       TK_notoken_STRING      = "TK_notoken",
  21.       TK_Identifier_STRING[] = "TK_Identifier",
  22.       TK_abstract_STRING[] = "TK_abstract",
  23.       TK_boolean_STRING[] = "TK_boolean",
  24.       TK_break_STRING[] = "TK_break",
  25.       TK_byte_STRING[] = "TK_byte",
  26.       TK_case_STRING[] = "TK_case",
  27.       TK_catch_STRING[] = "TK_catch",
  28.       TK_char_STRING[] = "TK_char",
  29.       TK_class_STRING[] = "TK_class",
  30.       TK_const_STRING[] = "TK_const",
  31.       TK_continue_STRING[] = "TK_continue",
  32.       TK_default_STRING[] = "TK_default",
  33.       TK_do_STRING[] = "TK_do",
  34.       TK_double_STRING[] = "TK_double",
  35.       TK_else_STRING[] = "TK_else",
  36.       TK_extends_STRING[] = "TK_extends",
  37.       TK_false_STRING[] = "TK_false",
  38.       TK_final_STRING[] = "TK_final",
  39.       TK_finally_STRING[] = "TK_finally",
  40.       TK_float_STRING[] = "TK_float",
  41.       TK_for_STRING[] = "TK_for",
  42.       TK_goto_STRING[] = "TK_goto",
  43.       TK_if_STRING[] = "TK_if",
  44.       TK_implements_STRING[] = "TK_implements",
  45.       TK_import_STRING[] = "TK_import",
  46.       TK_instanceof_STRING[] = "TK_instanceof",
  47.       TK_int_STRING[] = "TK_int",
  48.       TK_interface_STRING[] = "TK_interface",
  49.       TK_long_STRING[] = "TK_long",
  50.       TK_native_STRING[] = "TK_native",
  51.       TK_new_STRING[] = "TK_new",
  52.       TK_null_STRING[] = "TK_null",
  53.       TK_package_STRING[] = "TK_package",
  54.       TK_private_STRING[] = "TK_private",
  55.       TK_protected_STRING[] = "TK_protected",
  56.       TK_public_STRING[] = "TK_public",
  57.       TK_return_STRING[] = "TK_return",
  58.       TK_short_STRING[] = "TK_short",
  59.       TK_static_STRING[] = "TK_static",
  60.       TK_super_STRING[] = "TK_super",
  61.       TK_switch_STRING[] = "TK_switch",
  62.       TK_synchronized_STRING[] = "TK_synchronized",
  63.       TK_this_STRING[] = "TK_this",
  64.       TK_throw_STRING[] = "TK_throw",
  65.       TK_throws_STRING[] = "TK_throws",
  66.       TK_transient_STRING[] = "TK_transient",
  67.       TK_true_STRING[] = "TK_true",
  68.       TK_try_STRING[] = "TK_try",
  69.       TK_void_STRING[] = "TK_void",
  70.       TK_volatile_STRING[] = "TK_volatile",
  71.       TK_while_STRING[] = "TK_while",
  72.       TK_IntegerLiteral_STRING[] = "TK_IntegerLiteral",
  73.       TK_LongLiteral_STRING[] = "TK_LongLiteral",
  74.       TK_FloatingPointLiteral_STRING[] = "TK_FloatingPointLiteral",
  75.       TK_DoubleLiteral_STRING[] = "TK_DoubleLiteral",
  76.       TK_CharacterLiteral_STRING[] = "TK_CharacterLiteral",
  77.       TK_StringLiteral_STRING[] = "TK_StringLiteral",
  78.       TK_PLUS_PLUS_STRING[] = "TK_PLUS_PLUS",
  79.       TK_MINUS_MINUS_STRING[] = "TK_MINUS_MINUS",
  80.       TK_EQUAL_EQUAL_STRING[] = "TK_EQUAL_EQUAL",
  81.       TK_LESS_EQUAL_STRING[] = "TK_LESS_EQUAL",
  82.       TK_GREATER_EQUAL_STRING[] = "TK_GREATER_EQUAL",
  83.       TK_NOT_EQUAL_STRING[] = "TK_NOT_EQUAL",
  84.       TK_LEFT_SHIFT_STRING[] = "TK_LEFT_SHIFT",
  85.       TK_RIGHT_SHIFT_STRING[] = "TK_RIGHT_SHIFT",
  86.       TK_UNSIGNED_RIGHT_SHIFT_STRING[] = "TK_UNSIGNED_RIGHT_SHIFT",
  87.       TK_PLUS_EQUAL_STRING[] = "TK_PLUS_EQUAL",
  88.       TK_MINUS_EQUAL_STRING[] = "TK_MINUS_EQUAL",
  89.       TK_MULTIPLY_EQUAL_STRING[] = "TK_MULTIPLY_EQUAL",
  90.       TK_DIVIDE_EQUAL_STRING[] = "TK_DIVIDE_EQUAL",
  91.       TK_AND_EQUAL_STRING[] = "TK_AND_EQUAL",
  92.       TK_OR_EQUAL_STRING[] = "TK_OR_EQUAL",
  93.       TK_XOR_EQUAL_STRING[] = "TK_XOR_EQUAL",
  94.       TK_REMAINDER_EQUAL_STRING[] = "TK_REMAINDER_EQUAL",
  95.       TK_LEFT_SHIFT_EQUAL_STRING[] = "TK_LEFT_SHIFT_EQUAL",
  96.       TK_RIGHT_SHIFT_EQUAL_STRING[] = "TK_RIGHT_SHIFT_EQUAL",
  97.       TK_UNSIGNED_RIGHT_SHIFT_EQUAL_STRING[] = "TK_UNSIGNED_RIGHT_SHIFT_EQUAL",
  98.       TK_OR_OR_STRING[] = "TK_OR_OR",
  99.       TK_AND_AND_STRING[] = "TK_AND_AND",
  100.       TK_PLUS_STRING[] = "TK_PLUS",
  101.       TK_MINUS_STRING[] = "TK_MINUS",
  102.       TK_NOT_STRING[] = "TK_NOT",
  103.       TK_REMAINDER_STRING[] = "TK_REMAINDER",
  104.       TK_XOR_STRING[] = "TK_XOR",
  105.       TK_AND_STRING[] = "TK_AND",
  106.       TK_MULTIPLY_STRING[] = "TK_MULTIPLY",
  107.       TK_OR_STRING[] = "TK_OR",
  108.       TK_TWIDDLE_STRING[] = "TK_TWIDDLE",
  109.       TK_DIVIDE_STRING[] = "TK_DIVIDE",
  110.       TK_GREATER_STRING[] = "TK_GREATER",
  111.       TK_LESS_STRING[] = "TK_LESS",
  112.       TK_LPAREN_STRING[] = "TK_LPAREN",
  113.       TK_RPAREN_STRING[] = "TK_RPAREN",
  114.       TK_LBRACE_STRING[] = "TK_LBRACE",
  115.       TK_RBRACE_STRING[] = "TK_RBRACE",
  116.       TK_LBRACKET_STRING[] = "TK_LBRACKET",
  117.       TK_RBRACKET_STRING[] = "TK_RBRACKET",
  118.       TK_SEMICOLON_STRING[] = "TK_SEMICOLON",
  119.       TK_QUESTION_STRING[] = "TK_QUESTION",
  120.       TK_COLON_STRING[] = "TK_COLON",
  121.       TK_COMMA_STRING[] = "TK_COMMA",
  122.       TK_DOT_STRING[] = "TK_DOT",
  123.       TK_EQUAL_STRING[] = "TK_EQUAL",
  124.       TK_ERROR_STRING[] = "TK_ERROR",
  125.       TK_EOF_STRING[] = "TK_EOF",
  126.       TK_EOL_STRING[] = "TK_EOL";
  127.  
  128. static char *token_type(unsigned char kind)
  129. {
  130.     switch(kind)
  131.     {
  132.     case TK_Identifier: return TK_Identifier_STRING;
  133.     case TK_abstract: return TK_abstract_STRING;
  134.     case TK_boolean: return TK_boolean_STRING;
  135.     case TK_break: return TK_break_STRING;
  136.     case TK_byte: return TK_byte_STRING;
  137.     case TK_case: return TK_case_STRING;
  138.     case TK_catch: return TK_catch_STRING;
  139.     case TK_char: return TK_char_STRING;
  140.     case TK_class: return TK_class_STRING;
  141.     case TK_const: return TK_const_STRING;
  142.     case TK_continue: return TK_continue_STRING;
  143.     case TK_default: return TK_default_STRING;
  144.     case TK_do: return TK_do_STRING;
  145.     case TK_double: return TK_double_STRING;
  146.     case TK_else: return TK_else_STRING;
  147.     case TK_extends: return TK_extends_STRING;
  148.     case TK_false: return TK_false_STRING;
  149.     case TK_final: return TK_final_STRING;
  150.     case TK_finally: return TK_finally_STRING;
  151.     case TK_float: return TK_float_STRING;
  152.     case TK_for: return TK_for_STRING;
  153.     case TK_goto: return TK_goto_STRING;
  154.     case TK_if: return TK_if_STRING;
  155.     case TK_implements: return TK_implements_STRING;
  156.     case TK_import: return TK_import_STRING;
  157.     case TK_instanceof: return TK_instanceof_STRING;
  158.     case TK_int: return TK_int_STRING;
  159.     case TK_interface: return TK_interface_STRING;
  160.     case TK_long: return TK_long_STRING;
  161.     case TK_native: return TK_native_STRING;
  162.     case TK_new: return TK_new_STRING;
  163.     case TK_null: return TK_null_STRING;
  164.     case TK_package: return TK_package_STRING;
  165.     case TK_private: return TK_private_STRING;
  166.     case TK_protected: return TK_protected_STRING;
  167.     case TK_public: return TK_public_STRING;
  168.     case TK_return: return TK_return_STRING;
  169.     case TK_short: return TK_short_STRING;
  170.     case TK_static: return TK_static_STRING;
  171.     case TK_super: return TK_super_STRING;
  172.     case TK_switch: return TK_switch_STRING;
  173.     case TK_synchronized: return TK_synchronized_STRING;
  174.     case TK_this: return TK_this_STRING;
  175.     case TK_throw: return TK_throw_STRING;
  176.     case TK_throws: return TK_throws_STRING;
  177.     case TK_transient: return TK_transient_STRING;
  178.     case TK_true: return TK_true_STRING;
  179.     case TK_try: return TK_try_STRING;
  180.     case TK_void: return TK_void_STRING;
  181.     case TK_volatile: return TK_volatile_STRING;
  182.     case TK_while: return TK_while_STRING;
  183.     case TK_IntegerLiteral: return TK_IntegerLiteral_STRING;
  184.     case TK_LongLiteral: return TK_LongLiteral_STRING;
  185.     case TK_FloatingPointLiteral: return TK_FloatingPointLiteral_STRING;
  186.     case TK_DoubleLiteral: return TK_DoubleLiteral_STRING;
  187.     case TK_CharacterLiteral: return TK_CharacterLiteral_STRING;
  188.     case TK_StringLiteral: return TK_StringLiteral_STRING;
  189.     case TK_PLUS_PLUS: return TK_PLUS_PLUS_STRING;
  190.     case TK_MINUS_MINUS: return TK_MINUS_MINUS_STRING;
  191.     case TK_EQUAL_EQUAL: return TK_EQUAL_EQUAL_STRING;
  192.     case TK_LESS_EQUAL: return TK_LESS_EQUAL_STRING;
  193.     case TK_GREATER_EQUAL: return TK_GREATER_EQUAL_STRING;
  194.     case TK_NOT_EQUAL: return TK_NOT_EQUAL_STRING;
  195.     case T